home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / ANSIWriter / stack_-1.xml < prev    next >
Extensible Markup Language  |  1994-04-30  |  4KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3053</cardID>
  8.     <listID>2204</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackglobal savetextarrowsif there is a menu "ANSI Chars" then delete menu "ANSI Chars"create menu "ANSI Chars"put ANSIItems() into menu "ANSI Chars" with menumsg ANSIMsgs()disable menuitem 1 of menu "ANSI Chars"disable menuitem 10 of menu "ANSI Chars"disable menuitem 11 of menu "ANSI Chars"disable menuitem 20 of menu "ANSI Chars"disable menuitem 21 of menu "ANSI Chars"end openStackon closeStackif there is a menu "ANSI Chars" then delete menu "ANSI Chars"end closeStackfunction escreturn numtochar(27)end escon tabkeyput "    " into the selectionend tabkeyon keydown thekeyif thekey = esc()then put esc() into the selectionelse pass keydownend keydownfunction ANSIItemsreturn "Foreground"&return&¬¨"Black"&return&¬¨"Red"&return&¬¨"Green"&return&¬¨"Yellow"&return&¬¨"Blue"&return&¬¨"Magenta"&return&¬¨"Cyan"&return&¬¨"White"&return&¬¨"-"&return&¬¨"Background"&return&¬¨"BBlack"&return&¬¨"BRed"&return&¬¨"BGreen"&return&¬¨"BYellow"&return&¬¨"BBlue"&return&¬¨"BMagenta"&return&¬¨"BCyan"&return&¬¨"BWhite"&return&¬¨"-"&return&¬¨"Commands"&return&¬¨"Back To Normal"&return&¬¨"Bold"&return&¬¨"Underline"&return&¬¨"Reverse Video"&return&¬¨"Invisible"&return&¬¨"Clear The Screen"end ANSIItemsfunction ANSIMsgsreturn ""&return&¬¨"ANSIFore black"&return&¬¨"ANSIFore red"&return&¬¨"ANSIFore green"&return&¬¨"ANSIFore yellow"&return&¬¨"ANSIFore blue"&return&¬¨"ANSIFore magenta"&return&¬¨"ANSIFore cyan"&return&¬¨"ANSIFore white"&return&¬¨""&return&¬¨""&return&¬¨"ANSIBack black"&return&¬¨"ANSIBack red"&return&¬¨"ANSIBack green"&return&¬¨"ANSIBack yellow"&return&¬¨"ANSIBack blue"&return&¬¨"ANSIBack magenta"&return&¬¨"ANSIBack cyan"&return&¬¨"ANSIBack white"&return&¬¨""&return&¬¨""&return&¬¨"ANSISpecial normal"&return&¬¨"ANSISpecial bold"&return&¬¨"ANSISpecial underline"&return&¬¨"ANSISpecial reverseVideo"&return&¬¨"ANSISpecial invisible"&return&¬¨"ANSISpecial cls"end ANSIMsgson ANSIFore attribif attrib is black then put esc()&"[30m" into xelse if attrib is red then put esc()&"[31m" into xelse if attrib is green then put esc()&"[32m" into xelse if attrib is yellow then put esc()&"[33m" into xelse if attrib is blue then put esc()&"[34m" into xelse if attrib is magenta then put esc()&"[35m" into xelse if attrib is cyan then put esc()&"[36m" into xelse if attrib is white then put esc()&"[37m" into xput x before the selectionend ANSIForeon ANSIBack attribif attrib is black then put esc()&"[40m" into xelse if attrib is red then put esc()&"[41m" into xelse if attrib is green then put esc()&"[42m" into xelse if attrib is yellow then put esc()&"[43m" into xelse if attrib is blue then put esc()&"[44m" into xelse if attrib is magenta then put esc()&"[45m" into xelse if attrib is cyan then put esc()&"[46m" into xelse if attrib is white then put esc()&"[47m" into xput x before the selectionend ANSIBackon ANSISpecial attribif attrib is normal then put esc()&"[0m" into xelse if attrib is bold then put esc()&"[1m" into xelse if attrib is underline then put esc()&"[4m" into xelse if attrib is reverseVideo then put esc()&"[7m" into xelse if attrib is invisible then put esc()&"[8m" into xelse if attrib is cls then put esc()&"[2J" into xput x before the selectionend ANSISpecial</script>
  17.     <background id="2736" file="background_2736.xml" name="" />
  18.     <card id="3053" file="card_3053.xml" marked="false" name="" owner="2736" />
  19. </stack>
  20.